Option Explicit
Sub G_Sample010()
    Dim myShp  As Shape
    Dim mySht  As Worksheet
    Set mySht = Worksheets.Add
    With mySht
        For Each myShp In .Shapes
               myShp.Delete
        Next
    With .Cells(5, 5)					'Nxsd
    'sWAutoShape
    Set myShp = mySht.Shapes.AddShape(Type:=msoShapeRectangle, _
        Left:=0, Top:=0, Width:=.Left + .Width, _
        Height:=.Top + .Height)
    End With
    End With
    With myShp
    .Fill.Visible = msoFalse			'Nܦ]z
    .Line.Visible = msoFalse
    .OnAction = "Dummy"				'n
    End With
    MsgBox "xsdA1:E5wgγzShapeO@_ӤFC"
    Set myShp = Nothing				'
    Set mySht = Nothing
End Sub

Sub Dummy()
End Sub
